source("rglade.R")
g <- new("glade", server="datapath", user="alin");

data(infert);
dta <- as.glade(g,infert);
r1 <- read(g, lineitem);
r2 <- read(g, orders);
w <- 10
j1 <- join(r1[filter=l_tax == 2], l_orderkey+.(w), r2, o_orderkey);
j2 <- join( j1, l_discount, dta, induced);

strng <- "cucu"
df <- as.data.frame(j2, aaa=l_discount, tax=l_tax, age=lineitem.l_discount+.(w), height=l_tax+.(strng));

# xshow(j2);
